#!/usr/bin/perl -w

my %hash = (
    'fred'   => 'flintstone',
    'barney' => 'rubble',
    'wilma'  => 'flintstone',
);

chomp(my $key = <STDIN>);
print "$key 的姓：$hash{$key}\n";
